object Form5: TForm5
  Left = 297
  Top = 235
  Width = 458
  Height = 218
  HorzScrollBar.Tracking = True
  ActiveControl = Memo
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = 'Image text'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  Menu = MainMenu1
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Memo: TMemo
    Left = 0
    Top = 0
    Width = 450
    Height = 172
    Align = alClient
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MaxLength = 65000
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 0
    WantTabs = True
  end
  object MainMenu1: TMainMenu
    Left = 104
    Top = 48
    object File: TMenuItem
      Caption = 'File'
      ShortCut = 0
      OnClick = FileClick
      object ReadFromJPEG: TMenuItem
        Caption = 'Read text from a JPEG file'
        ShortCut = 0
        OnClick = ReadFromJPEGClick
      end
      object WriteIntoJPEG: TMenuItem
        Caption = 'Write text into a JPEG file'
        ShortCut = 0
        OnClick = WriteIntoJPEGClick
      end
      object N1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object OpenTextFile: TMenuItem
        Caption = 'Open textfile'
        ShortCut = 0
        OnClick = OpenTextFileClick
      end
      object SaveTextFile: TMenuItem
        Caption = 'Save textfile'
        ShortCut = 0
        OnClick = SaveTextFileClick
      end
      object N2: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Exit1: TMenuItem
        Caption = 'Close'
        ShortCut = 0
        OnClick = Exit1Click
      end
    end
    object Clear: TMenuItem
      Caption = 'Clear'
      ShortCut = 0
      OnClick = ClearClick
    end
  end
  object OpenDialog1: TOpenDialog
    FileEditStyle = fsEdit
    Filter = 
      'JPEG files (*.JPG,*.JPEG,*.JFIF,*.JIF)|*.JPG; *.JPEG; *.JFIF; *.' +
      'JIF|All files (*.*)|*.*'
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
    Title = 'Read text from a JPEG file:'
    Left = 48
    Top = 32
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'jpg'
    FileEditStyle = fsEdit
    Filter = 
      'JPEG files (*.JPG, *.JPEG, *.JFIF, *.JIF)|*.JPG; *.JPEG; *.JFIF;' +
      ' *.JIF|All files (*.*)|*.*'
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
    Title = 'Write text into a JPEG file:'
    Left = 64
    Top = 72
  end
end